If MsgBox("Recreating File will completely Erase all data in previous version" & Chr(10) & "Are you Sure you wish to proceed ?", 4 + 16, "WARNING") <> 6 Then Exit Sub
' extract the file's location from the list box !
ll = llist.List(llist.ListIndex)
' skip the first tab
p1 = 1: p2 = InStr(p1, ll, Chr(9))
p1 = p2 + 1: p2 = InStr(p1, ll, Chr(9))
Location = Trim(Mid(ll, p1, p2 - p1))
Create_btrfile (XPath.Text), Location, FileID
End Sub
Sub File_Delete ()
Dim idx As Integer, xfid As Integer
idx = llist.ListIndex
If idx < 0 Then Exit Sub
If idx < 3 Then
MsgBox "You CANNOT delete the system Files !", , "ERROR"
Exit Sub
End If
If MsgBox("Are you SURE you wish to Delete Selected file" & Chr(10) & "And all relevant Fields ?", 16 + 4, "Delete File") = 6 Then